home *** CD-ROM | disk | FTP | other *** search
/ Illustlations by Gainax / Illustlations by Gainax.iso / pc / sadamots.exe / SHARED.DXR / 00177_Selecter.ls < prev    next >
Encoding:
Text File  |  1994-11-27  |  1.8 KB  |  83 lines
  1. on enterFrame
  2.   finishmenu()
  3. end
  4.  
  5. on exitFrame
  6.   global grpno, pageno, scrmode
  7.   put "GRP-NO: " & string(grpno)
  8.   put "PAGE-No: " & string(pageno)
  9.   if scrmode = 1 then
  10.     if grpno = 1 then
  11.       go(1, "M013.DXR")
  12.     else
  13.       if grpno = 2 then
  14.         go(1, "M023.DXR")
  15.       else
  16.         if grpno = 3 then
  17.           go(1, "M033.DXR")
  18.         else
  19.           if grpno = 4 then
  20.             go(1, "M043.DXR")
  21.           else
  22.             if grpno = 5 then
  23.               go(1, "M053.DXR")
  24.             else
  25.               if grpno = 6 then
  26.                 go(1, "M063.DXR")
  27.               else
  28.                 if grpno = 7 then
  29.                   go(1, "M073.DXR")
  30.                 else
  31.                   if grpno = 8 then
  32.                     go(1, "M083.DXR")
  33.                   else
  34.                     if grpno = 9 then
  35.                       go("Staff")
  36.                     end if
  37.                   end if
  38.                 end if
  39.               end if
  40.             end if
  41.           end if
  42.         end if
  43.       end if
  44.     end if
  45.   else
  46.     if grpno = 1 then
  47.       go(1, "M016.DXR")
  48.     else
  49.       if grpno = 2 then
  50.         go(1, "M026.DXR")
  51.       else
  52.         if grpno = 3 then
  53.           go(1, "M036.DXR")
  54.         else
  55.           if grpno = 4 then
  56.             go(1, "M046.DXR")
  57.           else
  58.             if grpno = 5 then
  59.               go(1, "M056.DXR")
  60.             else
  61.               if grpno = 6 then
  62.                 go(1, "M066.DXR")
  63.               else
  64.                 if grpno = 7 then
  65.                   go(1, "M076.DXR")
  66.                 else
  67.                   if grpno = 8 then
  68.                     go(1, "M086.DXR")
  69.                   else
  70.                     if grpno = 9 then
  71.                       go("Staff")
  72.                     end if
  73.                   end if
  74.                 end if
  75.               end if
  76.             end if
  77.           end if
  78.         end if
  79.       end if
  80.     end if
  81.   end if
  82. end
  83.